home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / editors / tscredd2 / scrdisk5.exe / arc / SMALLEST.PAS < prev    next >
Pascal/Delphi Source File  |  1990-04-22  |  296b  |  16 lines
  1. Uses Crt,ScrEdit;
  2. {$I ScrDemo.003}
  3. Begin
  4. S_OpenScreenFile('ScrDemo.Scr');
  5. Initialize_Dupe_Fields_Buf;
  6. S_LoadScreen('Dupe_Fields');
  7. S_Cursor := S_InverseNormal;
  8.  
  9. Repeat
  10.   S_ReadScreen;
  11.   If  S_Enter Then
  12.       S_UserMsg := 'ENTER KEY PRESSED';
  13. Until S_Esc;
  14. S_CloseScreenFile;
  15. End.
  16.